home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #9 / Amiga Plus CD - 2004 - No. 09.iso / amigaplus / tools / amigaos4_only / ifxlite / imagefx3 / rexx / autofx / eot_scatter.ifx.pre < prev    next >
Text File  |  2004-08-03  |  2KB  |  77 lines
  1. /*
  2.  * $VER: EOT_Scatter.ifx.pre 2.6 (17.09.97)
  3.  * Copyright © 1992-1996 Nova Design, Inc.
  4.  *
  5.  * Written by Gregg William Riedel
  6.  * Scatter version by Andrew Folkins
  7.  *
  8.  * Scatter
  9.  *
  10.  * Inputs:
  11.  *    Word(Arg(1),1) = Sequence number (?)
  12.  *    Word(Arg(1),2) = Total number of frames (N)
  13.  *
  14.  * Returns:
  15.  *    0 if successful, non-zero on failure
  16.  *
  17.  */
  18.  
  19. OPTIONS RESULTS
  20.  
  21. base  = 'Autofx_Scatter_'
  22.  
  23. celsize = GETCLIP(base||'CelSize')
  24. rand    = GETCLIP(base||'Rand')
  25. tmin    = GETCLIP(base||'ThreshMin')
  26. tmax    = GETCLIP(base||'ThreshMax')
  27. source    = GETCLIP(base||'Source')
  28. type    = GETCLIP(base||'Type')
  29. x    = GETCLIP(base||'X')
  30. y    = GETCLIP(base||'Y')
  31. dmin    = GETCLIP(base||'DisplaceMin')
  32. dmax    = GETCLIP(base||'DisplaceMax')
  33. angle    = GETCLIP(base||'Angle')
  34.  
  35. IF celsize = "" THEN celsize = 1
  36. IF rand    = "" THEN rand    = 1234
  37. IF tmin    = "" THEN tmin    = 0
  38. IF tmax    = "" THEN tmax    = 255
  39. IF source  = "" THEN source  = 3
  40. IF type    = "" THEN type    = 1
  41. IF x       = "" THEN x       = 160
  42. IF y       = "" THEN y       = 100
  43. IF dmin    = "" THEN dmin    = 0
  44. IF dmax    = "" THEN dmax    = 100
  45. IF angle   = "" THEN angle   = 270
  46.  
  47. Gadget.1  = 'INTEGER 130  5 50 14 "Cel Size:"' celsize
  48. Gadget.2  = 'INTEGER 270  5 50 14 "Rand Seed:"' rand
  49. Gadget.3  = 'INTEGER 130 20 50 14 "Threshold Min:"' tmin
  50. Gadget.4  = 'INTEGER 270 20 50 14 "Max:"' tmax
  51. Gadget.5  = 'INTEGER 130 35 50 14 "X:"' x
  52. Gadget.6  = 'INTEGER 270 35 50 14 "Y:"' y
  53. Gadget.7  = 'CYCLE 130 50 190 14 "Source:"' source '"Swap Buffer/Exchange/Black/White/Drawcolor"'
  54. Gadget.8  = 'CYCLE 130 65 190 14 "Type:"' type '"Radial In/Radial Out/Linear/Swirl In/Swirl Out"'
  55. Gadget.9  = 'INTEGER 130 80 50 14 "Displacement Min:"' dmin
  56. Gadget.10 = 'INTEGER 270 80 50 14 "Max:"' dmax
  57. Gadget.11 = 'INTEGER 130 95 50 14 "Angle:"' angle
  58. Gadget.12 = 'END'
  59.  
  60. NewComplexRequest '"Scatter Sequence"' Gadget 330 115
  61. IF rc ~= 0 THEN EXIT rc
  62.  
  63. CALL SETCLIP(base||'CelSize', result.1)
  64. CALL SETCLIP(base||'Rand', result.2)
  65. CALL SETCLIP(base||'ThreshMin', result.3)
  66. CALL SETCLIP(base||'ThreshMax', result.4)
  67. CALL SETCLIP(base||'X', result.5)
  68. CALL SETCLIP(base||'Y', result.6)
  69. CALL SETCLIP(base||'Source', result.7)
  70. CALL SETCLIP(base||'Type', result.8)
  71. CALL SETCLIP(base||'DisplaceMin', result.9)
  72. CALL SETCLIP(base||'DisplaceMax', result.10)
  73. CALL SETCLIP(base||'Angle', result.11)
  74.  
  75. EXIT
  76.  
  77.